home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Software of the Month Club / Amiga General Interest Volume 215 (1995)(SOMC)(Disk 2 of y)[SMCxxxC30Ix].zip / Amiga General Interest Volume 215 (1995)(SOMC)(Disk 2 of y)[SMCxxxC30Ix].adf / Install < prev    next >
Text File  |  1995-09-05  |  9KB  |  403 lines
  1. (message
  2.   "\nWelcome to the\nHTML-Heaven Installer Utility\n\n"
  3.   "This program will install the HTML-Heaven\n"
  4.   "suite release 1.2 on your Amiga.\n"
  5.   "\n"
  6.   "Please read the AmigaGuide document or the\n"
  7.   "HTML documents for more information on how\n"
  8.   "to use the HTML-Heaven suite.\n"
  9.   "\n"
  10.   "The HTML-Heaven package is\n"
  11.   "© 1994, 95 by Paul Kolenbrander\n"
  12.   "All Rights Reserved!\n"
  13. )
  14. (welcome)
  15.  
  16. ;
  17. ; checking the AmigaOS version. We need at least 37.xx
  18. ;
  19. (transcript "Checking your OS version...")
  20. (if
  21.   (<
  22.     (/
  23.       (getversion)
  24.       65536
  25.     )
  26.     37
  27.   )
  28.   (
  29.     (transcript "Aborting Install as AmigaOS Release 2.04 (or higher) is not available.")
  30.     (abort "\nHTML-Heaven requires at least AmigaOS Release 2.04 to run.\n\n"
  31.            "Press the Proceed button to abort the installation procedure.")
  32.  
  33.   )
  34.   (transcript "AmigaOS version 2.04 (or higher) found. Proceeding.")
  35. )
  36. (complete 0)
  37.  
  38. ;
  39. ; Now ask where to install the HTML-Heaven drawer
  40. ;
  41. (set HTML-Heaven-dest
  42.   (tackon
  43.     (askdir
  44.       (prompt "Where should the HTML-Heaven drawer be installed?")
  45.       (help @askdir-help)
  46.       (default @default-dest)
  47.     )
  48.     "HTML-Heaven"
  49.   )
  50. )
  51. (set @default-dest HTML-Heaven-dest)
  52. (complete 10)
  53.  
  54. ;
  55. ; And copy all the file we need to the destination directory 
  56. ;
  57. (copyfiles
  58.   (source "")
  59.   (dest HTML-Heaven-dest)
  60.   (pattern "#?")
  61.   (infos)
  62. )
  63. (complete 40)
  64.  
  65. ;
  66. ; Set the date of all the copied files so the user gets a clean list and knows
  67. ; when he/she installed the package. [I know, I'm nitpicking. :-)]
  68. ;
  69. (set mydestin (tackon HTML-Heaven-Dest "#?"))
  70. (run "setdate" mydestin) 
  71. (complete 50)
  72.  
  73. (copyfiles
  74.   (source "Arexx")
  75.   (dest ( tackon HTML-Heaven-dest "ARexx" ) )
  76.   (pattern "#?")
  77.   (infos)
  78. )
  79. (complete 60)
  80.  
  81. ;
  82. ; Set the date of all the copied files so the user gets a clean list and knows
  83. ; when he/she installed the package. [I know, I'm nitpicking. :-)]
  84. ;
  85. (set mydestin (tackon HTML-Heaven-Dest "Arexx/#?"))
  86. (run "setdate" mydestin) 
  87. (complete 70)
  88.  
  89.  
  90. ;
  91. ; Now ask which editor script should be copied to S:
  92. ;
  93. (set editor-options
  94.  (select
  95.   (set editor-choice
  96.    (askchoice
  97.     (prompt "Which editor script do you wish to install?\n"
  98.     (choices "AME (part of DICE)"
  99.              "Annotate 2.0 or higher"
  100.              "Amiga Ed (standard editor)"
  101.              "CygnusEd 3.5Pro or higher"
  102.              "EdWord"
  103.              "EdWord 5.0"
  104.              "FrexxEd"
  105.              "GoldEd 1.0 or higher"
  106.              "GNU Emacs" 
  107.              "PolyEd" 
  108.              "SAS's SE" 
  109.              "SkoEd"
  110.              "TurboText" 
  111.              "Textra 1.0 or higher"
  112.     )
  113.     (default 0)
  114.     (help "Editor script description:\n"
  115.           "AME: Sets up HTML-Heaven to work with the DICE AME "
  116.           "editor.\n"
  117.           "\n"
  118.           "Annotate: Sets up HTML-Heaven to work with the Annotate "
  119.           "v2.0 editor.\n"
  120.           "\n"
  121.           "Amiga Ed: Sets up HTML-Heaven to work with the Amiga ED "
  122.           "editor. Note, Limited support due to Ed's behavior.\n"
  123.           "\n"
  124.           "CygnusEd: Sets up HTML-Heaven to work with the CygnusEd "
  125.           "editor.\n"
  126.           "EdWord: Sets up HTML-Heaven to work with the shareware "
  127.           "EdWord editor.\n"
  128.           "\n"
  129.           "EdWord5.0: Sets up HTML-Heaven to work with the shareware "
  130.           "EdWord 5.0 editor.\n"
  131.           "\n"
  132.           "FrexxEd: Sets up HTML-Heaven to work with the shareware "
  133.           "FrexxEd editor.\n"
  134.           "\n"
  135.           "GoldEd: Sets up HTML-Heaven to work with the shareware "
  136.           "GoldEd 1.0 or higher editor.\n"
  137.           "\n"
  138.           "MEmacs: Sets up HTML-Heaven to work with the MEmacs editor "
  139.           "that is available on most AmiNet sites.\n"
  140.           "\n"
  141.           "PolyEd: Sets up HTML-Heaven to work with the shareware "
  142.           "PolyEd editor found on eg. AmiNet.\n"
  143.           "\n"
  144.           "SE: Sets up HTML-Heaven to work with the SE editor that "
  145.           "comes with the SAS C compiler.\n"
  146.           "\n"
  147.           "SkoEd: Sets up HTML-Heaven to work with the shareware editor"
  148.           "SkoEd.\n"
  149.           "\n"
  150.           "TTX: Sets up HTML-Heaven to work with the TurboText "
  151.           "editor. An excellent script created by Cletus Baker.\n"
  152.           "\n"
  153.           "Textra: Sets up HTML-Heaven to work with the Textra "
  154.           "editor.\n"
  155.           "\n"
  156.           @askoptions-help)
  157.     )
  158.    )
  159.   )
  160.   (shiftleft 1 0) ; AME
  161.   (shiftleft 1 1) ; Annotate
  162.   (shiftleft 1 2) ; Amiga Ed
  163.   (shiftleft 1 3) ; CygnusEd
  164.   (shiftleft 1 4) ; EdWord
  165.   (shiftleft 1 5) ; EdWord 5.0
  166.   (shiftleft 1 6) ; FrexxEd
  167.   (shiftleft 1 7) ; GoldEd
  168.   (shiftleft 1 8) ; MEmacs
  169.   (shiftleft 1 9) ; PolyEd
  170.   (shiftleft 1 10) ; SE
  171.   (shiftleft 1 11) ; SkoEd
  172.   (shiftleft 1 12) ; TTX
  173.   (shiftleft 1 13) ; Textra
  174.  )
  175. )
  176. (complete 80)
  177.  
  178. ;
  179. ; Copy selected editor script
  180. ;
  181. (if
  182.   (IN editor-options 0)
  183.   (
  184.     (copyfiles
  185.       (prompt "Installing the AME script...")
  186.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-AME.rexx" ) )
  187.       (dest "S:")
  188.       (newname "HTML.rexx")
  189.       (infos)
  190.       (help @copyfiles-help)
  191.     )
  192.      
  193.   )
  194. )
  195. (complete 85)
  196.  
  197. (if
  198.   (IN editor-options 1)
  199.   (
  200.     (copyfiles
  201.       (prompt "Installing the Annotate script...")
  202.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-Annotate.rexx" ) )
  203.       (dest "S:")
  204.       (newname "HTML.rexx")
  205.       (infos)
  206.       (help @copyfiles-help)
  207.     )
  208.   )
  209. )
  210. (complete 86)
  211.  
  212. (if
  213.   (IN editor-options 2)
  214.   (
  215.     (copyfiles
  216.       (prompt "Installing the AmigaEd script...")
  217.       (source ( tackon HTMl-Heaven-dest "ARexx/HTML-Ed.rexx" ) )
  218.       (dest "S:")
  219.       (newname "HTML.rexx")
  220.       (infos)
  221.       (help @copyfiles-help)
  222.     )
  223.      
  224.   )
  225. )
  226. (complete 87)
  227.  
  228. (if
  229.   (IN editor-options 3)
  230.   (
  231.     (copyfiles
  232.       (prompt "Installing the CygnusEd script...")
  233.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-CEd.rexx" ) )
  234.       (dest "S:")
  235.       (newname "HTML.rexx")
  236.       (infos)
  237.       (help @copyfiles-help)
  238.     )
  239.   )
  240. )
  241. (complete 88)
  242.  
  243. (if
  244.   (IN editor-options 4)
  245.   (
  246.     (copyfiles
  247.       (prompt "Installing the EdWord script...")
  248.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-EdWord.rexx" ) )
  249.       (dest "S:")
  250.       (newname "HTML.rexx")
  251.       (infos)
  252.       (help @copyfiles-help)
  253.     )
  254.   )
  255. )
  256. (complete 89)
  257.  
  258. (if
  259.   (IN editor-options 5)
  260.   (
  261.     (copyfiles
  262.       (prompt "Installing the EdWord 5.0script...")
  263.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-EdWord5.rexx" ) )
  264.       (dest "S:")
  265.       (newname "HTML.rexx")
  266.       (infos)
  267.       (help @copyfiles-help)
  268.     )
  269.   )
  270. )
  271. (complete 90)
  272.  
  273. (if
  274.   (IN editor-options 6)
  275.   (
  276.     (copyfiles
  277.       (prompt "Installing the FrexxEd script...")
  278.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-FrexxEd.rexx" ) )
  279.       (dest "S:")
  280.       (newname "HTML.rexx")
  281.       (infos)
  282.       (help @copyfiles-help)
  283.     )
  284.   )
  285. )
  286. (complete 91)
  287.  
  288. (if
  289.   (IN editor-options 7)
  290.   (
  291.     (copyfiles
  292.       (prompt "Installing the GoldEd script...")
  293.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-GoldEd.rexx" ) )
  294.       (dest "S:")
  295.       (newname "HTML.rexx")
  296.       (infos)
  297.       (help @copyfiles-help)
  298.     )
  299.   )
  300. )
  301. (complete 92)
  302.  
  303. (if
  304.   (IN editor-options 8)
  305.   (
  306.     (copyfiles
  307.       (prompt "Installing the GNU Emacs script...")
  308.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-MEmacs.rexx" ) )
  309.       (dest "S:")
  310.       (newname "HTML.rexx")
  311.       (infos)
  312.       (help @copyfiles-help)
  313.     )
  314.   )
  315. )
  316. (complete 93)
  317.  
  318. (if
  319.   (IN editor-options 9)
  320.   (
  321.     (copyfiles
  322.       (prompt "Installing the PolyEd script...")
  323.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-PolyEd.rexx" ) )
  324.       (dest "S:")
  325.       (newname "HTML.rexx")
  326.       (infos)
  327.       (help @copyfiles-help)
  328.     )
  329.   )
  330. )
  331. (complete 94)
  332.  
  333. (if
  334.   (IN editor-options 10)
  335.   (
  336.     (copyfiles
  337.       (prompt "Installing the SE script...")
  338.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-SE.rexx" ) )
  339.       (dest "S:")
  340.       (newname "HTML.rexx")
  341.       (infos)
  342.       (help @copyfiles-help)
  343.     )
  344.   )
  345. )
  346. (complete 95)
  347.  
  348. (if
  349.   (IN editor-options 11)
  350.   (
  351.     (copyfiles
  352.       (prompt "Installing the SkoEd script...")
  353.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-SkoEd.rexx" ) )
  354.       (dest "S:")
  355.       (newname "HTML.rexx")
  356.       (infos)
  357.       (help @copyfiles-help)
  358.     )
  359.   )
  360. )
  361. (complete 96)
  362.  
  363. (if
  364.   (IN editor-options 12)
  365.   (
  366.     (copyfiles
  367.       (prompt "Installing the TurboTeXt script...")
  368.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-TTX.rexx" ) )
  369.       (dest "S:")
  370.       (newname "HTML.rexx")
  371.       (infos)
  372.       (help @copyfiles-help)
  373.     )
  374.   )
  375. )
  376. (complete 97)
  377.  
  378. (if
  379.   (IN editor-options 13)
  380.   (
  381.     (copyfiles
  382.       (prompt "Installing the Textra script...")
  383.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-Textra.rexx" ) )
  384.       (dest "S:")
  385.       (newname "HTML.rexx")
  386.       (infos)
  387.       (help @copyfiles-help)
  388.     )
  389.   )
  390. )
  391. (complete 98)
  392. (run "setdate S:HTML.rexx")
  393. (complete 100)
  394.  
  395. (exit "Version 1.2 of HTML-Heaven has been installed..\n"
  396.       "\n"
  397.       "The HTML-Heaven package is\n"
  398.       "© 1994,95 by Paul Kolenbrander\n"
  399.       "All Rights Reserved!\n\n"
  400.       "Please consider registering\n"
  401.       "this fine software package.\n"
  402. )
  403.